
          org  $1000
           move.l  #$1300,a7
           move.b  #$ff,d0
           move.l  #$aaaaaaaa,a0
           move.l  a0,-(a7)
           move.b  d0,-(a7)
           move.l  #beta,a0
           move.b  count,d0
           jsr     sumarray
           move.b  d1,sum
           move.b  (a7)+,d0
           move.l  (a7)+,a0
           nop



          org  $1100
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; subroutine sumarray
; compute sum of all data in an array of byte size
; input: a0.l point to an array
;        d0.b number of data to compute in that array
; output:  d1.b  sum result
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

sumarray   and.w  #$00ff,d0
           move.b #0,d1
           sub.w  #1,d0
loop       add.b  (a0)+,d1
           dbra   d0,loop
           rts





           org  $1200

count      ds.b  1
beta       dc.b  1,2,3,4,5
sum        ds.b  1








